Word版附注引用Excel数据并同步更新（二）

之前思源君写过一篇文章《Word版附注引用Excel数据并同步更新》，在写作那篇文章时，思源君只利用Word域代码链接了Word版附注的期末余额数据和Excel附注过渡表，近期思源君又花费时间把两者间期初余额的链接也给加了上去，整个操作过程到后期感觉打开Word文档和更新Word域代码非常的卡顿，可能Word域代码这个技术路线就决定了更新起来有点慢。

目前市场上成熟的附注过渡表产品已经进化到利用Access数据库字段表+Word域代码模式来同步Word和Excel间的数据，等思源君年审结束有空了再加以研究，目前先利用手头自制的Word代码模板度过这个年审再说。

通常我们从Excel附注过渡表链接到Word版附注中的数据经常会出现格式问题，如数字间距过大，自动添加换行符等，如下图所示

之前思源审计群里有群友也反映过这个问题，后来思源君经过琢磨，发现利用VBA代码把Word表格中的换行符和空格批量替换掉后数据格式会恢复正常，VBA代码如下

Sub 批量替换换行符和空格()
Dim i As Table
On Error Resume Next
For Each i In ActiveDocument.Tables
    i.Range.Find.Execute findtext:="^p", replacewith:="", Replace:=wdReplaceAll
    i.Range.Find.Execute findtext:=" ", replacewith:="", Replace:=wdReplaceAll
Next
End Sub

延伸阅读

---

End

「思源审计」专属学习群已正式成立，扫描下方二维码添加思源君的个人微信，拉您入群交流学习。

感谢您阅读“思源审计”，如有点滴收获，请点击下方链接关注